Public Class Config_Factory
    Public Function GetConfigFromName(ByVal sName As String) As Config
        Dim oFactory As New DBConfig_Factory
        Return oFactory.getConfigFromName(sName)
    End Function

    Public Function GetValueFromName(ByVal sName As String) As String
        Dim oFactory As New DBConfig_Factory
        Return oFactory.GetValueFromName(sName)
    End Function

    Public Sub SetValueFromName(ByVal sName As String, ByVal sValue As String)
        Dim oFactory As New DBConfig_Factory
        oFactory.SetValueFromName(sName, sValue)
    End Sub
End Class
